home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)TB / (A)TBY.ADF / MoleWt / IOWords.4th < prev    next >
Text File  |  1992-03-20  |  949b  |  42 lines
  1. \ IOWords.4th
  2. \ Useful words for using IO library calls
  3. \ J. Kennan 2-15-88
  4.  
  5. Find IOWords NOT
  6. IFTRUE : IOWords ;
  7.        ." Compiling IOWords.4th" CR
  8. OTHERWISE Prior.Stream
  9. IFEND
  10.  
  11. : CreateExtIO ( ioReplyPort\size -- IORequest ) \ RKM V2 Appendix F
  12.     LOCALS| size IOReplyPort |
  13.     IOReplyPort IF
  14.         size MEMF_CLEAR MEMF_PUBLIC OR AllocMem
  15.         ?DUP IF 
  16.             NT_MESSAGE  OVER +IOMessage +mnNode +lnType C!
  17.             size        OVER +IOMessage +mnLength  w!
  18.             IOReplyPort OVER +IOMessage +mnReplyPort !
  19.         
  20.         ELSE 0 THEN
  21.     ELSE 0 THEN ;
  22.  
  23. : DeleteExtIO ( ioExt -- ) \ RKM V2 Appendix F
  24.    ?DUP IF
  25.       255 OVER +IOMessage +mnNode +lnType C!
  26.       -1  OVER +IODevice  +!
  27.       -1  OVER +IOUnit +!
  28.       DUP +ioMessage +mnLength W@ Freemem
  29.    THEN ;
  30.  
  31. : CheckIO ( ioRequest -- flag )
  32.   !a1 exec@ 78 ;
  33.  
  34. : SendIO ( ioRequest -- )
  35.   !A1 exec 77 ;
  36.  
  37. : AbortIO ( ioRequest-- )
  38.   !a1 exec 80 ;
  39.  
  40. : WaitEvent ( --IDCMPFlags )
  41.   CurrentWindow @ +wdUserPort @ eWaitPort Drop GetEvent ;
  42.